object Frame_Pribor: TFrame_Pribor
  Left = 0
  Top = 0
  Width = 323
  Height = 144
  TabOrder = 0
  TabStop = True
  object gbPrib: TcxGroupBox
    Left = 3
    Top = 2
    TabOrder = 0
    Height = 139
    Width = 315
    object Label1: TLabel
      Left = 14
      Top = 18
      Width = 26
      Height = 14
      Caption = #1058#1080#1087':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 14
      Top = 45
      Width = 25
      Height = 14
      Caption = #1042#1080#1076':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 15
      Top = 73
      Width = 38
      Height = 14
      Caption = #1052#1072#1088#1082#1072':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 15
      Top = 98
      Width = 47
      Height = 14
      Caption = #1052#1086#1076#1077#1083#1100':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object cbTIP: TDBLookupComboBox
      Left = 62
      Top = 15
      Width = 237
      Height = 22
      DropDownRows = 15
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      KeyField = 'KOD'
      ListField = 'NAIM'
      ListSource = dsTIP
      ParentFont = False
      TabOrder = 0
      OnClick = cbTIPClick
    end
    object cbVID: TDBLookupComboBox
      Left = 62
      Top = 43
      Width = 237
      Height = 22
      DropDownRows = 15
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      KeyField = 'KOD_VIDPR'
      ListField = 'NAI_VIDPR'
      ListSource = dsVID
      ParentFont = False
      TabOrder = 1
      OnClick = cbVIDClick
    end
    object cbMARKA: TDBLookupComboBox
      Left = 59
      Top = 70
      Width = 237
      Height = 22
      DropDownRows = 30
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      KeyField = 'MARKA'
      ListField = 'MARKA'
      ListSource = dsMarka
      ParentFont = False
      TabOrder = 2
      OnClick = cbMARKAClick
    end
    object cbMODEL: TDBLookupComboBox
      Left = 62
      Top = 96
      Width = 237
      Height = 22
      DropDownRows = 30
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      KeyField = 'MODEL'
      ListField = 'MODEL'
      ListSource = dsMODEL
      ParentFont = False
      TabOrder = 3
    end
  end
  object dsetTIP: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select S.KOD, S.NAIM from SP_TIP_PRIB S where S.KOD>0 order by 1')
    Left = 134
    Top = 12
  end
  object dsetVID: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      
        'select S.KOD_VIDPR, S.NAI_VIDPR from SP_VIDPRIB S  where S.KLASS' +
        '=:TIP')
    Left = 135
    Top = 42
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'TIP'
      end>
  end
  object dsetMarka: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select DISTINCT S.MARKA from SP_SCHET S')
    Left = 134
    Top = 75
  end
  object dsetMODEL: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select DISTINCT (S.MODEL) from  SPR_KOTEL S'
      #9'where S.MARKA='#39'VAILLANT'#39)
    Left = 133
    Top = 107
  end
  object dsTIP: TIBCDataSource
    DataSet = dsetTIP
    Left = 165
    Top = 11
  end
  object dsVID: TIBCDataSource
    DataSet = dsetVID
    Left = 163
    Top = 43
  end
  object dsMarka: TIBCDataSource
    DataSet = dsetMarka
    Left = 163
    Top = 76
  end
  object dsMODEL: TIBCDataSource
    DataSet = dsetMODEL
    Left = 162
    Top = 106
  end
  object dsetZAPOLN: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select S.VID_PRIB, S.MARKA, S.MODEL'
      'from &Table  where &Pole=:KOD_PRIB')
    Left = 256
    Top = 16
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'KOD_PRIB'
      end>
    MacroData = <
      item
        Name = 'Table'
      end
      item
        Name = 'Pole'
      end>
  end
  object dsZAPOLN: TIBCDataSource
    DataSet = dsetZAPOLN
    Left = 288
    Top = 16
  end
end
